home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dtp / musiktex / macros+inputs / musicper.tex < prev    next >
Text File  |  1994-04-01  |  9KB  |  228 lines
  1. %
  2. % This is Musicper from MusicTeX
  3. \message{Version 5.03 -- March 31st, 1994}%
  4. %
  5.  
  6. \edef\catcodeat{\the\catcode`\@}\catcode`\@=11
  7. \edef\catcode@gt{\the\catcode`\>}\catcode`\>=12
  8. \edef\catcode@lt{\the\catcode`\<}\catcode`\<=12
  9.  
  10. %%%% notes with a doublesharp-head
  11.  
  12. \def\x@u{\musicnfont\char"35\hss}%
  13.  %\check
  14. \def\xu{\advancetrue\xu@z}%
  15. \def\xup{\advancetrue\xup@z}%
  16. \def\xupp{\advancetrue\xupp@z}%
  17. \def\xuppp{\advancetrue\xuppp@z}%
  18. \def\xu@z#1{\getn@i{#1}\def\n@fon{\xu}\def\n@sym{\x@u}\g@qu}%
  19. \def\xup@z#1{\getn@i{#1}\def\n@fon{\xup}\def\n@sym{\x@up}\g@qu}%
  20. \def\xupp@z#1{\getn@i{#1}\def\n@fon{\xupp}\def\n@sym{\x@upp}\g@qu}%
  21. \def\xuppp@z#1{\getn@i{#1}\def\n@fon{\xuppp}\def\n@sym{\x@uppp}\g@qu}%
  22. \def\xl{\advancetrue\xl@z}%
  23. \def\xlp{\advancetrue\xlp@z}%
  24. \def\xlpp{\advancetrue\xlpp@z}%
  25. \def\xlppp{\advancetrue\xlppp@z}%
  26. \def\xl@z#1{\getn@i{#1}\def\n@fon{\xl}\def\n@sym{\x@u}\g@ql}%
  27. \def\xlp@z#1{\getn@i{#1}\def\n@fon{\xlp}\def\n@sym{\x@up}\g@ql}%
  28. \def\xlpp@z#1{\getn@i{#1}\def\n@fon{\xlpp}\def\n@sym{\x@upp}\g@ql}%
  29. \def\xlppp@z#1{\getn@i{#1}\def\n@fon{\xlppp}\def\n@sym{\x@uppp}\g@ql}%
  30.  %\check
  31.  %
  32. \def\x@up{\hbox to \qn@width{\x@u\hss}\P@t}%
  33. \def\x@upp{\hbox to \qn@width{\x@u\hss}\PP@t}%
  34. \def\x@uppp{\hbox to \qn@width{\x@u\hss}\PPP@t}%
  35. %
  36. \def\xh#1{\selectpoutre{#1}\xh@}%
  37. \def\xb#1{\selectpoutre{#1}\xb@}%
  38. \def\xh@#1{\getn@i{#1}\def\n@fon{\xh@}\def\n@sym{\x@u}\g@qh@}% % position
  39. \def\xb@#1{\getn@i{#1}\def\n@fon{\xb@}\def\n@sym{\x@u}\g@qb@} % #1 position
  40. %
  41. % x heads without stems
  42. \def\zx#1{\getn@i{#1}\def\n@fon{\zx}\def\n@sym{\x@u}\g@zq}
  43. \def\zxp#1{\getn@i{#1}\def\n@fon{\zxp}\def\n@sym{\x@up}\g@zq}
  44. \def\zxpp#1{\getn@i{#1}\def\n@fon{\zxpp}\def\n@sym{\x@upp}\g@zq}
  45. \def\zxppp#1{\getn@i{#1}\def\n@fon{\zxppp}\def\n@sym{\x@uppp}\g@zq}
  46.  %
  47.  % croches, doubles croches, triples croches, quadruple croches queue en
  48.  % haut et en bas pour percussion x
  49.  %
  50. \def\xcu{\advancetrue\mxcu1}\def\xccu{\advancetrue\mxcu2}
  51. \def\xcccu{\advancetrue\mxcu3}\def\xccccu{\advancetrue\mxcu4}%
  52. \def\xcl{\advancetrue\mxcl1}\def\xccl{\advancetrue\mxcl2}
  53. \def\xcccl{\advancetrue\mxcl3}\def\xccccl{\advancetrue\mxcl4}%
  54. %
  55. \def\xclp{\advancetrue\mxclp1}\def\xcup{\advancetrue\mxcup1}%
  56. \def\xclpp{\advancetrue\mxclpp1}\def\xcupp{\advancetrue\mxcupp1}%
  57. \def\xclppp{\advancetrue\mxclppp1}\def\xcuppp{\advancetrue\mxcuppp1}%
  58.  %
  59. \def\mxcu#1#2{\getn@i{#2}\def\n@sym{\x@u}%
  60. \edef\n@fon{\noexpand\mxcu #1}\g@cu{#1}}
  61. \def\mxcup#1#2{\getn@i{#2}\def\n@sym{\x@up}%
  62. \edef\n@fon{\noexpand\mxcup #1}\g@cu{#1}}
  63. \def\mxcupp#1#2{\getn@i{#2}\def\n@sym{\x@upp}%
  64. \edef\n@fon{\noexpand\mxcupp #1}\g@cu{#1}}
  65. \def\mxcuppp#1#2{\getn@i{#2}\def\n@sym{\x@uppp}%
  66. \edef\n@fon{\noexpand\mxcupp #1}\g@cu{#1}}
  67.  %
  68. \def\mxcl#1#2{\getn@i{#2}\def\n@sym{\x@u}%
  69. \edef\n@fon{\noexpand\mxcl #1}\g@cl{#1}}
  70. \def\mxclp#1#2{\getn@i{#2}\def\n@sym{\x@up}%
  71. \edef\n@fon{\noexpand\mxclp #1}\g@cl{#1}}
  72. \def\mxclpp#1#2{\getn@i{#2}\def\n@sym{\x@upp}%
  73. \edef\n@fon{\noexpand\mxclpp #1}\g@cl{#1}}
  74. \def\mxclppp#1#2{\getn@i{#2}\def\n@sym{\x@uppp}%
  75. \edef\n@fon{\noexpand\mxclppp #1}\g@cl{#1}}
  76.  
  77.  
  78. %%%% notes with a circled doublesharp-head
  79.  
  80. \def\ox@u{\musicnfont\char 38\hss}%
  81.  %\check
  82. \def\oxu{\advancetrue\oxu@z}%
  83. \def\oxup{\advancetrue\oxup@z}%
  84. \def\oxupp{\advancetrue\oxupp@z}%
  85. \def\oxuppp{\advancetrue\oxuppp@z}%
  86. \def\oxu@z#1{\getn@i{#1}\def\n@fon{\oxu}\def\n@sym{\ox@u}\g@qu}%
  87. \def\oxup@z#1{\getn@i{#1}\def\n@fon{\oxup}\def\n@sym{\ox@up}\g@qu}%
  88. \def\oxupp@z#1{\getn@i{#1}\def\n@fon{\oxupp}\def\n@sym{\ox@upp}\g@qu}%
  89. \def\oxuppp@z#1{\getn@i{#1}\def\n@fon{\oxuppp}\def\n@sym{\ox@uppp}\g@qu}%
  90. \def\oxl{\advancetrue\oxl@z}%
  91. \def\oxlp{\advancetrue\oxlp@z}%
  92. \def\oxlpp{\advancetrue\oxlpp@z}%
  93. \def\oxlppp{\advancetrue\oxlppp@z}%
  94. \def\oxl@z#1{\getn@i{#1}\def\n@fon{\oxl}\def\n@sym{\ox@u}\g@ql}%
  95. \def\oxlp@z#1{\getn@i{#1}\def\n@fon{\oxlp}\def\n@sym{\ox@up}\g@ql}%
  96. \def\oxlpp@z#1{\getn@i{#1}\def\n@fon{\oxlpp}\def\n@sym{\ox@upp}\g@ql}%
  97. \def\oxlppp@z#1{\getn@i{#1}\def\n@fon{\oxlppp}\def\n@sym{\ox@uppp}\g@ql}%
  98.  %\check
  99.  %
  100. \def\ox@up{\hbox to \qn@width{\ox@u\hss}\P@t}%
  101. \def\ox@upp{\hbox to \qn@width{\ox@u\hss}\PP@t}%
  102. \def\ox@uppp{\hbox to \qn@width{\ox@u\hss}\PPP@t}%
  103. %
  104. \def\oxh#1{\selectpoutre{#1}\oxh@}%
  105. \def\oxb#1{\selectpoutre{#1}\oxb@}%
  106. \def\oxh@#1{\getn@i{#1}\def\n@fon{\oxh@}\def\n@sym{\ox@u}\g@qh@}% % position
  107. \def\oxb@#1{\getn@i{#1}\def\n@fon{\oxb@}\def\n@sym{\ox@u}\g@qb@} % #1 position
  108. %
  109. % x heads without stems
  110. \def\zox#1{\getn@i{#1}\def\n@fon{\zox}\def\n@sym{\ox@u}\g@zq}
  111. \def\zoxp#1{\getn@i{#1}\def\n@fon{\zoxp}\def\n@sym{\ox@up}\g@zq}
  112. \def\zoxpp#1{\getn@i{#1}\def\n@fon{\zoxpp}\def\n@sym{\ox@upp}\g@zq}
  113. \def\zoxppp#1{\getn@i{#1}\def\n@fon{\zoxppp}\def\n@sym{\ox@uppp}\g@zq}
  114.  %
  115.  % croches, doubles croches, triples croches, quadruple croches queue en
  116.  % haut et en bas pour percussion x
  117.  %
  118. \def\oxcu{\advancetrue\moxcu1}\def\oxccu{\advancetrue\moxcu2}
  119. \def\oxcccu{\advancetrue\moxcu3}\def\oxccccu{\advancetrue\moxcu4}%
  120. \def\oxcl{\advancetrue\moxcl1}\def\oxccl{\advancetrue\moxcl2}
  121. \def\oxcccl{\advancetrue\moxcl3}\def\oxccccl{\advancetrue\moxcl4}%
  122. %
  123. \def\oxclp{\advancetrue\moxclp1}\def\oxcup{\advancetrue\moxcup1}%
  124. \def\oxclpp{\advancetrue\moxclpp1}\def\oxcupp{\advancetrue\moxcupp1}%
  125. \def\oxclppp{\advancetrue\moxclppp1}\def\oxcuppp{\advancetrue\moxcuppp1}%
  126.  %
  127. \def\moxcu#1#2{\getn@i{#2}\def\n@sym{\ox@u}%
  128. \edef\n@fon{\noexpand\moxcu #1}\g@cu{#1}}
  129. \def\moxcup#1#2{\getn@i{#2}\def\n@sym{\ox@up}%
  130. \edef\n@fon{\noexpand\moxcup #1}\g@cu{#1}}
  131. \def\moxcupp#1#2{\getn@i{#2}\def\n@sym{\ox@upp}%
  132. \edef\n@fon{\noexpand\moxcupp #1}\g@cu{#1}}
  133. \def\moxcuppp#1#2{\getn@i{#2}\def\n@sym{\ox@uppp}%
  134. \edef\n@fon{\noexpand\moxcupp #1}\g@cu{#1}}
  135.  %
  136. \def\moxcl#1#2{\getn@i{#2}\def\n@sym{\ox@u}%
  137. \edef\n@fon{\noexpand\moxcl #1}\g@cl{#1}}
  138. \def\moxclp#1#2{\getn@i{#2}\def\n@sym{\ox@up}%
  139. \edef\n@fon{\noexpand\moxclp #1}\g@cl{#1}}
  140. \def\moxclpp#1#2{\getn@i{#2}\def\n@sym{\ox@upp}%
  141. \edef\n@fon{\noexpand\moxclpp #1}\g@cl{#1}}
  142. \def\moxclppp#1#2{\getn@i{#2}\def\n@sym{\ox@uppp}%
  143. \edef\n@fon{\noexpand\moxclppp #1}\g@cl{#1}}
  144.  
  145. %%%% notes with a + head, for bongos ...
  146.  
  147. \def\k@u{\musicnfont\char 39\hss}%
  148.  %\check
  149. \def\ku{\advancetrue\ku@z}%
  150. \def\kup{\advancetrue\kup@z}%
  151. \def\kupp{\advancetrue\kupp@z}%
  152. \def\kuppp{\advancetrue\kuppp@z}%
  153. \def\ku@z#1{\getn@i{#1}\def\n@fon{\ku}\def\n@sym{\k@u}\g@qu}%
  154. \def\kup@z#1{\getn@i{#1}\def\n@fon{\kup}\def\n@sym{\k@up}\g@qu}%
  155. \def\kupp@z#1{\getn@i{#1}\def\n@fon{\kupp}\def\n@sym{\k@upp}\g@qu}%
  156. \def\kuppp@z#1{\getn@i{#1}\def\n@fon{\kuppp}\def\n@sym{\k@uppp}\g@qu}%
  157. \def\kl{\advancetrue\kl@z}%
  158. \def\klp{\advancetrue\klp@z}%
  159. \def\klpp{\advancetrue\klpp@z}%
  160. \def\klppp{\advancetrue\klppp@z}%
  161. \def\kl@z#1{\getn@i{#1}\def\n@fon{\kl}\def\n@sym{\k@u}\g@ql}%
  162. \def\klp@z#1{\getn@i{#1}\def\n@fon{\klp}\def\n@sym{\k@up}\g@ql}%
  163. \def\klpp@z#1{\getn@i{#1}\def\n@fon{\klpp}\def\n@sym{\k@upp}\g@ql}%
  164. \def\klppp@z#1{\getn@i{#1}\def\n@fon{\klppp}\def\n@sym{\k@uppp}\g@ql}%
  165.  %\check
  166.  %
  167. \def\k@up{\hbox to \qn@width{\k@u\hss}\P@t}%
  168. \def\k@upp{\hbox to \qn@width{\k@u\hss}\PP@t}%
  169. \def\k@uppp{\hbox to \qn@width{\k@u\hss}\PPP@t}%
  170. %
  171. \def\kh#1{\selectpoutre{#1}\kh@}%
  172. \def\kb#1{\selectpoutre{#1}\kb@}%
  173. \def\kh@#1{\getn@i{#1}\def\n@fon{\kh@}\def\n@sym{\k@u}\g@qh@}% % position
  174. \def\kb@#1{\getn@i{#1}\def\n@fon{\kb@}\def\n@sym{\k@u}\g@qb@} % #1 position
  175. %
  176. % x heads without stems
  177. \def\zk#1{\getn@i{#1}\def\n@fon{\zk}\def\n@sym{\k@u}\g@zq}
  178. \def\zkp#1{\getn@i{#1}\def\n@fon{\zkp}\def\n@sym{\k@up}\g@zq}
  179. \def\zkpp#1{\getn@i{#1}\def\n@fon{\zkpp}\def\n@sym{\k@upp}\g@zq}
  180. \def\zkppp#1{\getn@i{#1}\def\n@fon{\zkppp}\def\n@sym{\k@uppp}\g@zq}
  181.  %
  182.  % croches, doubles croches, triples croches, quadruple croches queue en
  183.  % haut et en bas pour percussion x
  184.  %
  185. \def\kcu{\advancetrue\mkcu1}\def\kccu{\advancetrue\mkcu2}
  186. \def\kcccu{\advancetrue\mkcu3}\def\kccccu{\advancetrue\mkcu4}%
  187. \def\kcl{\advancetrue\mkcl1}\def\kccl{\advancetrue\mkcl2}
  188. \def\kcccl{\advancetrue\mkcl3}\def\kccccl{\advancetrue\mkcl4}%
  189. %
  190. \def\kclp{\advancetrue\mkclp1}\def\kcup{\advancetrue\mkcup1}%
  191. \def\kclpp{\advancetrue\mkclpp1}\def\kcupp{\advancetrue\mkcupp1}%
  192. \def\kclppp{\advancetrue\mkclppp1}\def\kcuppp{\advancetrue\mkcuppp1}%
  193.  %
  194. \def\mkcu#1#2{\getn@i{#2}\def\n@sym{\k@u}%
  195. \edef\n@fon{\noexpand\mkcu #1}\g@cu{#1}}
  196. \def\mkcup#1#2{\getn@i{#2}\def\n@sym{\k@up}%
  197. \edef\n@fon{\noexpand\mkcup #1}\g@cu{#1}}
  198. \def\mkcupp#1#2{\getn@i{#2}\def\n@sym{\k@upp}%
  199. \edef\n@fon{\noexpand\mkcupp #1}\g@cu{#1}}
  200. \def\mkcuppp#1#2{\getn@i{#2}\def\n@sym{\k@uppp}%
  201. \edef\n@fon{\noexpand\mkcupp #1}\g@cu{#1}}
  202.  %
  203. \def\mkcl#1#2{\getn@i{#2}\def\n@sym{\k@u}%
  204. \edef\n@fon{\noexpand\mkcl #1}\g@cl{#1}}
  205. \def\mkclp#1#2{\getn@i{#2}\def\n@sym{\k@up}%
  206. \edef\n@fon{\noexpand\mkclp #1}\g@cl{#1}}
  207. \def\mkclpp#1#2{\getn@i{#2}\def\n@sym{\k@upp}%
  208. \edef\n@fon{\noexpand\mkclpp #1}\g@cl{#1}}
  209. \def\mkclppp#1#2{\getn@i{#2}\def\n@sym{\k@uppp}%
  210. \edef\n@fon{\noexpand\mkclppp #1}\g@cl{#1}}
  211.  
  212. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  213. % special percussion symbols moved from musicnft.sty
  214.  
  215. \def\shaker#1{\charnote{#1}{\s@haker}}%
  216. \def\zshaker#1{\zcharnote{#1}{\s@haker}}%
  217. \def\tremolord#1{\charnote{#1}{\t@remolord}}%
  218. \def\ztremolord#1{\zcharnote{#1}{\t@remolord}}%
  219.  
  220.  
  221. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  222.  
  223. \catcode`\>=\catcode@gt
  224. \catcode`\<=\catcode@lt
  225. \catcode`\@=\catcodeat
  226.  
  227.  
  228.